Imports System.Diagnostics

Namespace Seguridad.Enterprise.Logger

    Public Class clsLogger
        Public Shared Sub WriteEventLog(ByVal e As Exception, ByVal Action As String, ByVal EventSource As String, ByVal EventLog As String)
            Dim Log As New EventLog
            Log.Source = EventSource
            Log.Log = EventLog
            Dim Message As String = "Ocurrio un Error de comunicacion con el origen de datos" & Chr(13)
            Message &= "Accion : " & Action & Chr(13)
            Message &= "Error : " & e.ToString
            Log.WriteEntry(Message)
        End Sub
    End Class
End Namespace

